CR	EQU	$0D
LF	EQU	$0A

        ORG     $4C00

START	MOVE.L  #24,D0      Move character count into D0
        LEA.L   STR,A0      Load string address into A0
        TRAP    #1          Call printer trap
        MOVE.B  #4,D1
        TST.B   D0          D0 was the return value - See if print was good or not
        BEQ.S   GOODP       if D0 is zero - print was good.
        LEA.L   FAIL,A4
        BRA.S   ENDTST
GOODP   LEA.L   PASS,A4
ENDTST  TRAP    #0          Print output string
        TRAP    #15         End Program

STR	DC.B    CR,LF,'Hello World!'
	DC.B	CR,LF,'-Group 4',0
FAIL    DC.B    'Printing failed.',0
PASS    DC.B    'Printing succeeded',0
     
        END     START


*~Font name~Courier New~
*~Font size~10~
*~Tab type~1~
*~Tab size~8~
